home *** CD-ROM | disk | FTP | other *** search
/ PC Gamer (Italian) 28 / PC Gamer IT CD 28 1-2.iso / MEDIA / REVIEWS.DXR / Internal_51.ls < prev    next >
Encoding:
Text File  |  1997-12-01  |  3.1 KB  |  132 lines
  1. on exitFrame
  2.   set the visible of sprite 11 to rollOver(4)
  3.   set the visible of sprite 12 to rollOver(5)
  4.   set the visible of sprite 18 to rollOver(5)
  5.   set the visible of sprite 13 to rollOver(6)
  6.   set the visible of sprite 19 to rollOver(6)
  7.   set the visible of sprite 14 to rollOver(7)
  8.   set the visible of sprite 20 to rollOver(7)
  9.   set the visible of sprite 21 to rollOver(8)
  10.   set the visible of sprite 15 to rollOver(8)
  11.   set the visible of sprite 16 to rollOver(9)
  12.   set the visible of sprite 22 to rollOver(9)
  13.   set the cursor of sprite 4 to 280
  14.   set the cursor of sprite 5 to 280
  15.   set the cursor of sprite 6 to 280
  16.   set the cursor of sprite 7 to 280
  17.   set the cursor of sprite 8 to 280
  18.   set the cursor of sprite 9 to 280
  19.   set the cursor of sprite 25 to 280
  20.   set the cursor of sprite 26 to 280
  21.   set the cursor of sprite 27 to 280
  22.   set the cursor of sprite 28 to 280
  23.   set the cursor of sprite 29 to 280
  24.   set the cursor of sprite 31 to 280
  25.   set the cursor of sprite 10 to 280
  26.   go(the frame)
  27. end
  28.  
  29. on keyDown
  30.   global gAlpha
  31.   cursor(4)
  32.   case the key of
  33.     "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z":
  34.       set i to the key
  35.   end case
  36.   put i
  37.   put i into field "alphakey"
  38.   UpdateAlphaRT()
  39.   case i of
  40.     "A":
  41.       set gAlpha to 1
  42.     "B":
  43.       set gAlpha to 2
  44.     "C":
  45.       set gAlpha to 3
  46.     "D":
  47.       set gAlpha to 4
  48.     "E":
  49.       set gAlpha to 5
  50.     "F":
  51.       set gAlpha to 6
  52.     "G":
  53.       set gAlpha to 7
  54.     "H":
  55.       set gAlpha to 8
  56.     "I":
  57.       set gAlpha to 9
  58.     "J":
  59.       set gAlpha to 10
  60.     "K":
  61.       set gAlpha to 11
  62.     "L":
  63.       set gAlpha to 12
  64.     "M":
  65.       set gAlpha to 13
  66.     "N":
  67.       set gAlpha to 14
  68.     "O":
  69.       set gAlpha to 15
  70.     "P":
  71.       set gAlpha to 16
  72.     "Q":
  73.       set gAlpha to 17
  74.     "R":
  75.       set gAlpha to 18
  76.     "S":
  77.       set gAlpha to 19
  78.     "T":
  79.       set gAlpha to 20
  80.     "U":
  81.       set gAlpha to 21
  82.     "V":
  83.       set gAlpha to 22
  84.     "W":
  85.       set gAlpha to 23
  86.     "X":
  87.       set gAlpha to 24
  88.     "Y":
  89.       set gAlpha to 25
  90.     "Z":
  91.       set gAlpha to 26
  92.   end case
  93.   cursor(-1)
  94. end
  95.  
  96. on alertIt
  97.   beep()
  98.   alert("You pressed an A")
  99. end
  100.  
  101. on UpdateAlphaRT
  102.   global gTB
  103.   puppetSound(1, "pioolb")
  104.   mSetCriteria(gTB, "AlphSortKey", "start", field "alphaKey")
  105.   mSelect(gTB)
  106.   set n to mSelectCount(gTB)
  107.   if n <> 0 then
  108.     put n into field "NumberFound"
  109.     put mGetField(gTB, "appname") into field "appname"
  110.     put mGetField(gTB, "Contact") into field "contact"
  111.     put mGetField(gTB, "highs") into field "highs"
  112.     put mGetField(gTB, "lows") into field "lows"
  113.     put mGetField(gTB, "BottomLine") into field "BottomLine"
  114.     put mGetField(gTB, "Rating") into field "Ratings"
  115.     put mGetField(gTB, "AlphSortKey") into field "AlphSortKey"
  116.     put field "Ratings" & "%" into field "Rating"
  117.   else
  118.     CheckAlphaSearch()
  119.   end if
  120.   showSelection()
  121. end
  122.  
  123. on CheckAlphaSearch
  124.   global gAlpha
  125.   set gAlpha to gAlpha + 1
  126.   if gAlpha > 26 then
  127.     set gAlpha to 1
  128.   end if
  129.   put char gAlpha of field "alphaBet" into field "alphakey"
  130.   UpdateAlphaRT()
  131. end
  132.